home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 026-050 / scopedisk33 / rxenv / rxcomp.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-18  |  1KB  |  52 lines
  1. /*     Compile a C program            */
  2. /*     Updated for Lattice Version 4.1        */
  3.  
  4. parse arg fname
  5.  
  6. echo 'Compiling' fname
  7.  
  8. /* Note: -d option: turns on debug mode !!! */
  9. /*         -cf option: compiler insures that prototypes exist for all functions */
  10.  
  11. lc1 = 'LC:lc1 >QUAD:' || fname || '.err -b0 -cc -cf -cw -d -oQUAD: Source:' || fname
  12. lc2 = 'LC:lc2 >QUAD:$$temp -oOBJ: -v -y QUAD:' || fname
  13. cp1 = 'cp Source:' || fname || '.c SourceDisk:Source'
  14. cp2 = 'cp OBJ:' || fname || '.o SourceDisk:Source/Obj'
  15.  
  16. if exists( "Source:" || fname || ".c" )
  17.     then    address COMMAND lc1
  18.     else    do
  19.         echo fname || '.c does not exist!!!'
  20.         exit 30
  21.         end
  22.  
  23. if exists( 'QUAD:' || fname || '.q' )
  24.     then    do
  25.         echo 'Pass 1 on' fname 'succeeded.'
  26.         address COMMAND lc2
  27.         end
  28.     else    do
  29.         echo 'Pass 1 on' fname 'failed.'
  30.         exit 40
  31.         end
  32.  
  33.  
  34. if ~ exists( 'OBJ:' || fname || '.o' )
  35.    then    do
  36.         echo 'Pass 2 on' fname 'failed.'
  37.         exit 50
  38.         end
  39.  
  40. echo 'Pass 2 on' fname 'succeeded.'
  41. 'delete ram:$$temp'
  42.  
  43. /* if exists( 'SourceDisk:' ) */
  44. /*    then    do */
  45. /*        address COMMAND cp1 */
  46. /*        echo fname || '.c copied to SourceDisk:Source' */
  47. /*        address COMMAND cp2 */
  48. /*        end */
  49.  
  50. echo
  51. exit
  52.